home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1997 September / Macworld (1997-09).dmg / Serious Software / Cherwell Scientific Demos / pro Fit / pro Fit 5.0 demo (fpu).sea / pro Fit 5.0 demo (fpu) / External Modules / External modules sources / C / Multiply.c < prev    next >
Text File  |  1994-10-01  |  3KB  |  76 lines
  1. /***************************************************************************************/
  2. /* Multiply.c                                                                          */
  3. /*                                                                                     */
  4. /* Version 26.9.94                                                                    */
  5. /***************************************************************************************/
  6.  
  7. #include "proFit_interface.h"
  8.  
  9.  
  10. /***************************************************************************************/
  11.  
  12. void SetUp (    short* const moduleKind,        /* set moduleKind to isFunction or isProgram */
  13.                 Str255 name,                    /* the name of the program or function (pascal string) */
  14.                 long* const requiredGlobals,    /* the number of bytes to be allocated in ExtModulesParamBlock.globals */
  15.                                                 /* set requiredGlobals to 0 if you don't use this feature */
  16.                 ExtModulesParamBlock* pb)        /* the complete parameter block passed by pro Fit to the */
  17.                                                 /* routines defined in this file. In most cases it can be ignored */
  18. /* SetUp is called once when the external module is linked to proFit */
  19. {
  20.     *moduleKind=isProgram;                                /* we define a program */
  21.     SetPascalStr(name,"\pMultiplication Table",255);    /* its name */
  22.     *requiredGlobals = 0;                                /* we don't need global data */
  23. }
  24.  
  25. /***************************************************************************************/
  26.  
  27. void InitializeProg (ExtModulesParamBlock* pb)
  28.     /* Can be left emtpy if not needed. */
  29.     /* called when the external module is linked to proFit after SetUp was called */
  30.     /* can be used to inititialize global variables, etc. */
  31. {
  32. }
  33.  
  34. /***************************************************************************************/
  35.  
  36. void Run(ExtModulesParamBlock* pb)
  37. /* pro Fit calls this function when the name of the program is chosen from the */
  38. /* Run Program submenu in the menu Calc */
  39. {
  40.     short i, j;
  41.     for (i = 1 ; i<= NrRows();i++)
  42.         for (j = 1 ; j<= NrCols();j++)
  43.              SetData(i,j, i * j);
  44.  
  45. }
  46.  
  47. /***************************************************************************************/
  48.  
  49. void CleanUp (ExtModulesParamBlock* pb)
  50.     /* called when the function or program is removed from pro Fit's menus */
  51.     /* in most cases, this function can be empty */
  52. {
  53. }
  54.  
  55.  
  56.  
  57.  
  58. /***************************************************************************************/
  59.                         /* for functions, not used here: */
  60. /***************************************************************************************/
  61.  
  62. void InitializeFunc (Boolean* const hasDerivatives, Str255 descr1stLine, Str255 descr2ndLine,        
  63.                     short* const numberOfParams, DefaultParamInfo* const a0, ExtModulesParamBlock* pb)
  64. {}
  65.  
  66. void Func (    double x, ParamArray a,    double* const y, ExtModulesParamBlock* pb)        
  67. {}
  68.  
  69. void Derivatives(double x, ParamArray a, ParamArray dyda, ExtModulesParamBlock* pb)
  70. {}
  71. short Check(short paramNo, DefaultParamInfo* const a0, ExtModulesParamBlock* pb)
  72. {return ok;}
  73. void First (ParamArray a, ExtModulesParamBlock* pb)
  74. {}
  75. void Last (ExtModulesParamBlock* pb)
  76. {}